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IMULACA© 




Quais sao suas chances de fazer os 
treze pontos na loteria esportiva 
desta semana? Nosso programa nao vai 
melhorar sua sorte, mas poderi 
ajuda-lo a entender porque perdeu. 



Instruir um novo piloto a bordo de 
iim aviao a jato ou de um bombardeiro 
pode custar muito caro, se Icvarmos em 
coma OS custos com combustivel, ater- 
risj^agens e pessoa! de apoio. Por isso, as 
autoridades milUares preferem investir 
grandes somas em avioes de treinamen- 
to e simuladores — equJpamentos con- 
trolados por computador que nunca del- 
xam solo, mas dao ao iniciante a sen- 
sagao de um voo real. 

O mesmo tipo de argumento e vaii- 
do em varias outras situa;;6es — incluin- 
do o planejamento de uma industria, 
marketing, pesquisas cientificas e pianos 
governamentais. Programar um compu- 
tador para simular os efeitos de uma 
provavel falencia ou de uma determina- 
da politica economica e, sem duvida, 
mais razoavel do que testa-las na prati- 
ca, o que tomaria cinco anos ou mais, 
dependendo das clrcunstancias. Nao 
surpreendem, portanto, OS grandes in- 
vesiimentos que tern sido feitos na area. 

Antes do advento dos computadores, 
era praticamente impossivel utilizar es- 
se recurso. devido k complexidade e ex- 
lensao dos calculos envolvidos. Hoje em 
dia, ate os microcomputadores pessoais 
podem fazer simulai;6es nao muito com- 
plicadas — como as que voce jd deve ter 
visto em jogos comercializados pelos fa- 
bricantes. 

Por tras de todo trabalho de simula- 
^ao e previsao, estao as leis da probabi- 
lidade. Se voce nao esta familiarizado 
com elas, consulte o artigo Acaso e Pro- 
babilidade na pagina 776. Complemen- 
tando essas leis, usam-se os estudos es- 
tatisticos, que analisam os fatos reais, 
quantificando a ocorrencia de certas si- 
tuagoes e o surgimento de variagoes em 
suas caracteristicas. 

A partir de algumas informagoes ba- 
sicas, o computador i. capaz de pre- 
ver situagoes futuras para uma serie de 
evemos. Mas a confiabiiidadc dos resul- 
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tados dependera sempre do cuidado com 
que OS dados foram introduzidos e da 
precisao das regras que orientam sua 
manipulacao. Tomemos um exeraplo 
bem simples: a simuia^So dos resultados 
de uma loteria esportiva. 

A cada fim de semana, milhares de 
pessoas conferem, pela televisao ou pe- 
!o radio, os resultados da loteria espor- 
tiva, aguardando ansiosamente sua vez 
de fazer os treze pontos. Infelizmente, 
todos, excel o os raros premiados, des- 
ligam a televisao desapontados e vao 
dormir. esperando pelos jogos da pr6- 
xima semana. Se voce quiser antecipar 
a emofao de checar sua sorte, digite es- 
[as linhas: 



10 DIM Jtl3): BOBDEB 0: PAPER 
0: INK 7; CLS 

20 PEINT IHVEBSE 1 ; " AS PAET 

IDAS ESTAO EM ANOAMENTO" 

30 FOB T-1 TO 13 

40 LET J<I)-RND*1 

50 NEXT I 

60 FOB 1=1 TO 2000: NEXT I 

70 PRINT : PRINT FLASH li 

PAPER 2 ; " E ATENCAO PAHA OS B 

ESULTADOS : ' : PRINT 

80 FOE I-l TO 13 

90 IF J (!)<-. 5 THEN LET 23=" 

UM" 
100 IF J(I)>.5 AND J(T)<=.75 
THEN LET Z5="D0rS' 
110 tF J(I)>.75 THEN LET Z$=" 
DO METO" 

120 PRINT TAB 3;"J0GO " i I i : 
PRINT TAB 11 ! " : COLIJNA " ; ZS 
130 FOR T=l TO 500: NEXT T 
140 NEXT I: PHINT = PRINT 
150 PBINT FLASH 0; PAPER 1 ; "V 
OCE CUER OUTRA LOTERIA (S/N) ?" 
160 LET AS-INKEYS: IF A$-"" 
THEN OOTO 160 
170 IF AS'-'S" THEN GOTO 10 
IBO STOP 

D 

10 DIM 0(13) 

20 CLS: PRINT " AS PABTIDAS ESTA 

EM ANDAMENTO" 

30 FOR I-l TO 13 

40 LET J(I)-RND(10)/10 

50 NEXT I 

60 FOR I-l TO 2000: NEXT 

70 PRINT §34, "E ATENCAO PAHA OS 

RESULTADOS' : PRINT 
SO FOR 1-1 TO 13 
90 IF J (IX-. 5 THEN ZS-'UM" 
100 IF J(I>>.5 AND J{I)<-.75 TH 
EN ZS="DOIS" 

110 IF J(I)>.75 THEN ZS""DO MEI 
O" 

120 PRINT TAB (4) -JOGO-jI;': CO 
LUNA ■ ; Z$ 

130 FOR T-1 TO 500:NEXT T 
14 NEXT I: PBINT 
150 PRINT "VOCE QUER OUTRA LOTE 





RIA ? (S/N) " 

160 LET A$-INKEYS:IF AS-"" 

160 
170 IF A$-"S" THEN GOTO 20 
160 END 



THEN 



HIE] 



10 DIM JdJ) 

20 HOME ■ PRINT TAB ( 5) *AS PA 

RTIDAS ESTAO EM ANDAMENTO" 

30 FOR I - 1 TO 13 

LET J (I) - RND (1) 

NEXT I 

FOR I = 1 TO 2000: NEXT 

PRINT : PRINT TAB ( 6) "E AT 
ENCAO PARA OS RESULTADOS" : PRIN 
T 

FOR I - 1 TO 13 

IF Jtl) < = -5 THEN Z$ = ' 



40 
50 
60 
70 



60 
90 
UM' 
100 



.5 AND J(T) C 

"DOIS" 

. 75 THEN Z$ - 



IF J(I) 
.75 THEN ZS 
110 IF J(I) 
MEIO" 

120 PRINT TAB( 7)"JOGO ";!;: 
PRINT TAB{ 15)" : COLUNA 'jl 
S 

130 FOB T = 1 TO 500: NEXT T 
140 NEXT I : PRINT ; PRINT 
150 PRINT TAB( 4) "VOCE QUER C 
UTRA LOTERIA ?<3/N>'' 
160 GET AS 

170 IF A$ = "S" THEN GOTO 20 
J 80 END 



f^ 



10 DIMJ(13) 

20 CLS: PRINT TAB (5) "AS PAHTIDAS 

ESTAO EM ANDAMENTO" 
30 FOR 1=1 TO 13 
LET JCI)-RND(l) 
NEXT I 

FOR T=l TO 2000:NEXT 
PRINT: PRINT TAB (6) "E ATENQR 
PARA OS RESULTADOS" : PRINT 



80 FOR 1=1 TO 13 

90 IF JilX'.S THEN ZS-"UM" 

100 IF J(I)>.5 AND J{I)<=.75 TH 

EN ZS-"DOIS" 

110 IF JCI)>.75 THEN Z$="DO MEI 

O' 

120 PRINT TAB (7) " JOGO" ; I ; : PRIN 

T TAB (15)- : COLUNA " ; Z$ 

130 FOR T-l TO 50O:NEXT T 

14!) NEXT T: PRINT: PRINT 

150 PRINT TAB (4) 'VOCE QUEF OUT 

RA LOTERIA? (S/N)" 

160 A$-INKEY$:IF A$-"' THEN GOT 

160 

170 IF AS--S" THEN GOTO 20 

180 END 

Rode o programa e os resultados se- 
rao prontamente impresses na tela, 

Nao e incomum o cancelamento de 
algum jogo, sobretudo por causa de 
chuva. Quando isso ocorre, a Caixa 
Economtca Federal, a promotora da lo- 
teria, faz um sorteio para definir um re- 
sultado para o jogo. Na verdade, esse 
processo nao passa de uma simu!ai;aOi 



Ki 



L 



ou seja, de uma representai^ao sinib6li- 
ca de uma situa^ao real. 

A estrutura do programa e muito 
simples. O lago entre as linhas 30 e 50 
sorteia treze niimeros correspondentes 
aos treze jogos, e o la?o entre as linhas 
80 e 140 relaciona esses niimeros aos 
possi'veis resultadci^. 



DECIDINDO OS RESULTADOS 



O parametro que o computador uti- 
ILza para imprimir os dados do placar 
provem de uma anallse sobre a freqiien- 
cia de cada resultado em jogos passados. 
Sabe-se que, em 50% dos jogos, o time 
da casa vence, pois conta, eatre outras 
vantagens, com o apoio da torcida. As 
ocorrencias restantes dividem-se igual- 
mente entre empate — 25% — e vitdria 
do time visitante — 25<?o. 

Em cada jogo ha tres resultados pos- 
siveis (coluna um, coluna do meio e 
coluna dois) e a loteria inclui treze jo- 
gos. Assim, a probabilidade de ocor- 
rer determinado resultado e de 1 em 
1 .594.323 (um em ires elevado a treze). 
Como voce ve, as chances de acerto se- 
riam muito pequenas, case nao se per- 
mitissem apostas duplas ou triplas. Na 
Inglaterra, por exemplo, as apostas tam- 
bem incluem empate com gols ou sem 
gels, o que torna a probabilidade de ga- 
nhar ainda menor (1 em 4T13). 

Decidir o resultado de um jogo e, 
portamo, como fazer um sorteio: os nii- 
meros sao colocados em uma caixa e al- 
guem, sem olhar, pega um deles. 

Suponhamos que se divida um papel 
em quatro partes: na primeira, escreve- 
mos "coluna dois"; na segunda, "co- 
luna do meio" e, nas outras duas, "co- 
luna um". Se fizermos um sorteio, es- 
taremos representando a decisao de uma 
partida de futebol. Tambem poderiamos 
escrever um mimero em cada peda^o de 
papel — 1, 2, 3 e 4 ^ e relaciond-los a 
um resultado desta forma: 



NUMERO 


RESULTADO 


1. 2 


coluna um 


3 


coluna dois 


4 


coluna do meio 



A funcao RND do BASIC, que ge- 

ra numeros randomlcos, faz com que 
o computador sorteie um mimero do 
"chapeu". Considerando que RND ge- 
ra um mimero entre e I , podemos rees- 
crever nossa tabela assim: 



F 



VALOR DO RND 

de a 0,5 

maior que 0.5 ate 0.75 

maior que 0.75 ate 1.00 



RESULTADO 

coluna um 
coluna dois 
coluna do meio 



Voltando ao programa anterior, vo- 
ce pode observar que este i o processo 
utilizado pelo computador para decidir 
o resultado de cada jogo (linha 80 ate 
linha 140). 

Em nosso programa, as proporgSes 
entre os resultados dos jogos foram es- 
timadas um pouco grosseiramente. Pa- 
ra aperfeifod-las, voce podera fazer uma 
pequena pesquisa em arquivos de jor- 
nais e redefinir a propon;ao a ser usa- 
da. Experimente fazer algumas previ- 
soes e confira com os resultados da prd- 
xima semana. Boa sorte! 



GERACAO DE NUMEROS RANDOMICOS 



Dados, cartas e roleta ja foram mui- 
to utilizados para a obtentao de nume- 
ros randomicos. Procedimentos como 
esses, lentos e tediosos, puderam ser 
abandonados depois que um famoso 
matematico americano, John von New- 
man, propos o metodo da potencia qua- 
drada. Come<;ando com um mimero de 
quatro digitos (a "semente"), o pr6xi- 
mo mimero randomico seria obtido pe- 
la multiplicavao da semente por ela mes- 
ma. Do resultado seriam destacados os 
quatro digitos do meio. Suponhamos 
que a semente ^ o mimero 5272. O se- 
gundo niimero sera gerado pelos quatro 
digitos centrals de (5272T2), ou seja, 
27.793,984. A resposta (7939) e pratica- 
mente randomica. Um terceiro numero 
seria obtido elevando-sc 7939 ao qua- 
drado e assim por diante. 

Voce pode estar se perguntando se 
qualquer processo matemdtico — obri- 
gatoriamente repedtivo — seria capaz de 
gerar numeros realmente randomicos, 
Na verdade, isso e impossivet. Porim, 
o numero obtido comporta-se como se 
fosse randomico, e e geralmente chama- 
do pseudo-randomico. 

Infellzmente, a tecnJca da potencia 
quadrada nao e muito litil para gerar 
numeros randomicos no computador. 
Alem de ,ser um processo lento, a se- 
qiiencia logo se repete, e, assim que sur- 
ge um zero, ela e interrompida. A maio- 
ria dos micros adota um metodo distin- 
to, recorrendo a uma fonte qualquer de 
numeros para gerar os pseudo-randomi- 
cos. O proximo programa usa uma for- 
mula bem simples e a fun^jao INT para 
demonstrar como esse metodo funciona. 



20 BORDER 0: INK 7: PAPER 0: 

CLS 

30 PRINT AT 0,2; INVERSE 1 ; " 

NUMEROS PSEUDO-RANIKJMrCOS " ' ■ 

40 INPUT "* QUANTOS NUMEROS ? 

' ;n: LET a-0 





Quantas varidveis cabem na mem6ria? 

Nos tnterpretadores Microsoft BA- 
SIC dos micros MSX, TRS-80, TRS- 
Cotor, Apple e TK-2000, os nomes de 
varidveis podem ter.uma ou duas le- 
tras, ou uma Jetra e um numero. Tam- 
b6m 6 possfvel acrescentar o suf ixo de 
ttpo, que pode ser um # fprecisao du- 
pla), \ fprecisao simples), % (inteiro) e 
S iliterall. Dadas essas limitapoes, 
calcula-se o niimero de nomes diferen- 
tes em 2 000. 

Jd para os micros Sinclair (ZX-8T e 
Spectrum), nio hA limite te6rico, pois 
sao aceitos mais de dois caracteres no 
nome de uma variSvel. 



50 LET K -.677829*PEEK 23673 

/50 

60 LET K"x*1842.95 

70 LET x-x-INT (X) 

80 LET p=l^fT Cx«1000) : PRINT 

-:.ooi«p, 
90 LET s-s+1 

110 IF B<-n THEN GOTO 60 
120 STOP 

D 

20 CLS 

30 PRINT «3,"NUMER0S P3EUD0-RAN 

DOMICOS" 

40 PRINT: PRINT :INPUT-QUANTOS NU 

MEROS ';N:S-0 

50 X-.677829*TIMER/50 

60 X-X*1842.95 

70 X-X-INT (X) 

60 P-INT(X*1000) : PRINT LEFTS (ST 

RS{P/1000)+' ",8); 

90 S-S+1 

110 IF S<-N THEN 60 

120 END 



aiE] 



20 HOME 

30 PRINT TABC 7) "NUMEBOS PSEU 

DO-RANDOMTCOS": PRINT 

40 INPUT "QUANTOS NUMEROS ? "; 

N:S = 

50 X = .677829 * 31B378 / 50 

60 X = X * 1842.95 

70 X - X - INT (X) 

80 P - INT (X * 1000] : PRINT 

LEFTS ( STRS (P / 1000) + " 

',8) ; 
90 S = S + 1 
110 IF S < N THEN 60 
120 END 



fm 



20 CLS 

30 PfiINT TAB (6) 



•NOMEROS PSEUDO 



-RANnOMICOS" ■ PRINT 

40 TNPUT"QUANTOS NOMEBOS ";N:S= 



50 X=.677829*TIME/50 

60 X=X*184Z.95 

70 X=X-TNT(X) 

BO P=TNT(X*1000) rPRINT LEFT$ (ST 

R$(P/1000)+" ",8) ( 

90 S-S+l 

110 IF S<N THEN 60 

120 END 

A linha 50 usa a fun^ao time para 
produzir uma semente diferente a cada 
execugao do programa. O Apple e o 
TK-2O00 nao possuem essa Fungao. Por- 
tanto, se voce quiser uma outra seqiien- 
cia, deverd substitiiir o valor 318378. 

O oumero .677829 e uma constante 
arbitriria. Depois que o valor e multi- 
plicado por oufra constante (Ilnha 60), 
obtem-se o residue (ou parte decimal). 
Mude OS valores das constantes nas li- 
nhas 50 e 60 e torne a e.xecutar o pro- 
grama para verificar o tipo de resulta- 
do a que chegari. 

Para outros fins, i mais facil utillzar 
a funijao RND existente em seu compu- 
tador. Variando o valor de x na expres- 
sao RND(x), voce poderA selecionar 
uma seqiiencia que se repita, o que e 
muito iJtil para renovar a semente a ca- 
da execupao do programa. 

Lembre-se de que a fun(;ao RND tria 
uma variivel randomica e nao uma va- 
riavd algebrica. RNDd) — ou RND(tt) 
noTRS-Color — nao resultari no mes- 
mo numero em duas partes do programa. 



AMOSTRAS E PESQUISAS 



Empresas que Fazem pesquisas de 
mercado ou de opiniao publica usam 
computadores para gerar uma amostra 
randomica da popula?ao. Quando en- 
Irevistam, por exemplo, mil pessoas, e 
muito importante que elas representem 
a grande maioria da populagao. Ou se- 
ja, OS entrevistados nao podem ser es- 
colhidos por morar perto do inslituto de 
pesquisa ou trabalhar em determinada 
empresa. Ao contririo, devem ter as 
mais diversas origens e caracteristicas 
para que suas oplnioes nao sejam in- 
fluentjiadas por particularidades comuns 
a determinado,s grupos. 

A melhor maneira de se definir uma 
amostra bem representativa e seleciona- 
la randomicamenle, exciuindo, a.ssim, 
qualquer tendencia ou preconceito. 

Isso continua valendo mesmo que o 
campo amostral nao seja tao grande, e 
que comporte de fato algumas caracte- 
n'sdcas comuns — como se supoe haver 
enLre os socios de um clube ou os leito- 
res de INPUT. Se voce quisesse saber, 



por exemplo, quais os computadores i 
mais usados entre os leiJores de INPUT, i 
seria necessario fazer uma amostragem 
randomica para chegar ao resultado 
mais proximo possivel do real. 

O processo utilizado no programa e 
similar ao de retirar ntlmeros de um cha- 
peu, com uma pequena diferenga: o pa- 
pel sorteado nao voitara ao chapeu, o ! 
que equivaleria a entrevisiar duas vezes 
a mesma pessoa. Execute o programa 
que se segue para ver como a funtjao 
RND pode ser cmpregada para gerar 
uma amostragem randomica. 



10 DIM bS(10.16) 

20 DIM a$(10, 16) 

30 BORDER 0: PAPER 0: INK 7: 

CLS 

50 PRINT AT 0,.^; tNUEBSE 1 ; "A 

MOSTRAGEM RANDOMICA " 

90 PAUSE 100: CLS 
100 FOR i-1 TO 10; READ aS{i)r 

NEXT I 
110 INPUT " TAMANHO DA AMOSTRA 

? ";n 
120 FOR v=J TO 10: LET bS tv) =a 
S (V) ; NEXT V 
130 FOB j=l TO n 
140 LET r=l+TNT (RND*10) 
150 IF bSCr)=" 
" THEN GOTO 140 
160 PRINT b$ (r) 
170 LET bSCr)="'' 
180 NEXT : 

190 INPUT " OUTRA AMOSTRA (a/n 
) ? ';oS 
200 IF g5="3" THEN CLS : GOTO 

1 10 
210 STOP 

220 DATA "BONN","COPENHA<UJE"," 
LONDRES" 

230 DATA "MADRI-.'MOSCOU'.-NOU 
A tORQUE" 

2<]0 DATA "PARIS" ."ROMA" . "ESTOC 
OLMC'VIENA" 



a 



40 CLS 

50 t>RINT 68, 'AMOSTRA RANtOMiCA' 

: PRINT: PRINT 

100 RESTORE: FOR I-l TO 10: READ 

A3 (I) :NEXT I 

110 INPUT'TAMANHO DA AMOSTRA ": 

N: PRINT 

115 IF N>10 THEN 40 

120 FOR V-1 TO 10:B$(V)-A3{V) :N 

EXT V 

130 FOR J=>1 TO N 

140 H-1+INT(RND{0)*10) 

150 IF B$(R)--- THEN 140 

160 PRINT B3(R) 

170 BSCH)-" 

ISO NEXT J 

190 PRINT: INPUT' OUTRA AMOSTRA 

(S/N) ";G$: PRINT: PRINT 

200 IF GS-"S" THEN 110 

210 END 

220 DATA BONN.COPENKAGUE,LONDRE 
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730 DATA MADRI.MOSCOU.NOWA lOBQ 

UE 

240 DATA PARIS, ROMA, ESTOCOLMO.U 

lENA 
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40 HOME 

50. PRINT TAB{ 10 ) 'AMOSTBACEM 

RANDOM! CA~ : PRINT 

100 RESTORE : FOB I = 1 TO 10: 

HEAD AS(I) : NEXT 1 
110 INPUT "TArtANHO DO CAMPO AM 
OSTHAL :";N: PRINT 
115 IF N > 10 THEN 40 
120 FOR V = 1 TO 10:B$ (V} = AS 
tV) : NEXT V 
130 FOR J = 1 TO N 
I'lO B = 1 + INT ( RND (1) * 10 

) 

150 IF BSCR) = "" THEN 1.40 

160 PRINT BS{R.) 

170 B$(R) = "- 

ISO NEXT J 

190 PRINT : INPUT "OUTEA AMOST 

RAGEM ?(S/N) "iGS: PRINT : PRIN 

T 

ZOO IF GS = "S" THEN 40 

210 END 

220 DATA BONN, COPENHAGEN, LOND 

RES 

230 DATA MADHI.MOSCOU.NOVA YO 

RK 

240 DATA PARI S, ROMA, ESTOCOLM 

0,UTENA 
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20 CLS 

30 PRINT TAB (6) "NUMER03 PSEUDO 

-RANDOMICOS" : PRINT 

40 CLS 

50 PRINT TAB(8J "AMOSTRAGEM BAN 

DOMICA" : PRINT : PRINT 

100 HESTORE:FOR I-l TO 10:READ 

AS (I) :NEXT I 

110 INPUT -TAMANHO DA AMOSTHA " 

;N:PRINT 

120 FOB V=l TO 10: BS(V)=A$(V) :N 

EXT V 

130 FOR J-1 TO N 

140 R=l +rNT{aND(l)*10) 

150 IF BS{R)="" THEN 140 

160 PRINT BS(H) 

170 BS<a)="" 

180 NEXT J 

190 PRINT :INPUT"OUTRA AMOSTBA ? 

(S/N) " ;GS: PRINT: PRINT 
200 IF GS^'S' THEN 110 
210 END 

220 DATA BONN, COPENHAGEN. LONDRE 
S 

230 DATA MAORI, MOSCOW, NOVA YORK 
240 DATA PARIS. ROMA, ESTOCOLMO,U 
lENA 

Depois que as informafoes que se- 
guem o comando DATA foram lidas (li- 
nha 100). um numero inteiro randdmi- 
co R, entre \ e 10, e gerado (linha 140). 
Seu computador imprimira, entao, o R- 
esimo item (linha 160) da lista. 



Assim que um item i selecionado, 
deve-se remove-lo do banco de informa- 
ijoes, para nao ser escolhido duas vezes. 
A linha 170 sc encarrega disso. 

Geralmente, o banco de informai^oes 
a ser pesquisado e bem mais extenso do 
que o apresentado aqui. Para obter 
amostragens de um grupo maior, nosso 
programa seria lento e ineficiente. Se um 
politico quisesse, por exemplo, sortear 
duzentos nomes de um eleitorado de 
60.000 elementos, o programa teria que 
percorrer a lista duzenlas vezes. Para 
evitar essa longa espera, o mais conve- 
niente seria recorrer ao metodo de bus- 
ca individual. 



METODO DE BUSCA IMDIVIDUAL 



Com esse metodo, o banco de dados 
€ percorrido uma so vez, de cima para 
baixo. Decide-se, a cada nome conside- 
rado, qual deve ser induido na amostra- 
gem. Para obter uma amostragem des- 
sa maneira, faga as seguintes modifica- 
C5es no programa anterior: 



120 LET a-n: LET c=10 

130 FOR j=l TO 10 

140 IF a=0 THEN GOTO 190 

150 IP BND*l<=a/c THEN PHFNT 

a3(j) : GOTO 170 

160 LET c=c-l: GOTO 180 

170 t.ET a = a-l: LET c.-c-l 

a 

50 PRINT §3,"AH0STRA RANDOMICA 

SIMPLES "; PRINT: PRINT 

120 A-N:C-10 

130 FOR J-1 TO 10 

140 IF A-0 THEN 190 

150 IF RND(0)<-A/C THEN PRINT A 

S(J) ;G0TO 170 

160 C-C-l;GOTO 180 

170 A-A-1:C-C-1 
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50 PRINT "AMOSTRAGEM RANDOMICA 

DE BUSCA INDIVrDUAL": PRINT 
120 A = N:C - 10 
130 FOR J = 1 TO 10 
140 IF A = THEN 190 
150 IF RND (1) < = A / C THE 
N PRINT A$UI): GOTO 170 
160 C - C - 1; GOTO 180 
170 A-A-1:C-C-1 
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50 PRINT TAB (9) "AMOSTRAGEM RAN 

DOMICA" I PRINT; PRINT TAB 19 J "DE 

BUSCA iNDTUIDtfAL" : PRINT 

120 A=N:C=10 

130 FOB J=l TO 10 

140 IF A=0 THEN 190 

150 If RND(1)<-A/C THEN PRINT A 




FAZENDO PREV1S0ES 

As t^cnicas de simulagao descritas 
neste artigo apresentam muitos dos 
elementos necess^rios para que voce 
prOprio desenvolva um metodo para 
prever os resultados de um Jogo ou pa- 
ra fazer uma pesquisa, Nao ser5 difici! 
modificar os programas ou usar parte 
deles, adaptando-os ^s suas fina- 
lidades. 

VocS pode, por exemplo, planejar e 
montar um programs que conterjha o re- 
sultado de vinte partidas e, entao, se- 
lecionar tre2e delas e compafar suas 
previsoes com os resultados reals. Pa- 
ra isso, seria precise utilizar tanto o 
programa da loteria esportiva quanto 
da amostragem, com algumas modi- 
ficapdes e linhas extras destinadas a 
iig^-los. 

Se voce quiser treinar um pouco 
mais, experimente uma outra combina- 
gao dos dois programas, fazendo com 
que o computador nao s6 simule os re- 
sultados da loteria esportiva, como 
tamb^m fornega os nomes dos times 
que estSo jogando. VocS devera, nes- 
se caso, incluir no programa de amos- 
tragem OS nomes de vSrios times, den- 
tre OS quais 26 serao sorteados. 



S(J) :GOTO 170 

160 C=C-1 :GOTO 180 

170 A=A-l:C=C'l 

Se vocS decidir selecionar tres itcns da 
lista, o primeiro deles, Bonn, so sera es- 
colhido se a funcao RND (linha 1 50) re- 
suitar num numero menor que 3/10, 
Copenhague sera o proximo item a ser 
considerado. Se Bonn ja tiver entrado 
para a amostragem, o item Copenhague 
tera a chance de ser escolhido se a fun- 
gao RND gerar um valor menor que 
2/9. Se Bonn nao foi selecionado, a 
chance de Copenhague aumenta para 
3/9. As linhas 160 e 170 atualizam es- 
sas probabilidades para cada ekmento. 

Se voce comparar as amostragens ob- 
tidas por este programa com as do pro- 
grama anterior, observara que. aqui, 
elas aparecem na ordem em que estao 
no programa. 

A primeira vista, pode-se supor que, 
com uma lista de dez itens, o numero de 
amostragens possiveis e pequeno. Na 
verdade, porem, e bem grande: sao 120 
amostras diferentes com tres itens, e 252 
com cinco itens. 
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AVALANCHE: AS 
PEDRAS ROLAM (2) 



Ate agora Willie nao contava com a 
ameaga de uma avalanche. A rotina que 
faz com que as pedras rolem esta ape- 
nas pela melade e, provavelmenie, fa- 
Ihara se voce tentar executa-ta. Esta se- 
gunda parte da rotina ira precipitar a 
avalanche. E Willie so estard seguro se 
putar fora do caminho. 



A listagem que apresentamos aqui e 
constituida de duas segoes principais. 
Uma delas imprime a segunda figura da 
pedra — para dar a irapressao de que 
ela esta rolando — e verifica se Willie 
foi atingido. A outra apaga a pedra se 
ela tiver chegado ao fim da encosta ou 
^ super ficie do mar e a recoloca no to- 
po da encosta. Ambas as sefoes sao cha- 
madas pela parte da rotina fornecida no 
artigo anterior, 

Assim que voce tiver digitado e mon- 
tado as linhas que se seguem, a rotina 
de movimenta^ao da pedra estara pron- 
ta para funcionar. Mas lembre-se de que 
voce deve ter o resto do jogo na memo- 
ria, ja que outras rotinas — como print 
— serao chamadas. 

10 HEM org 59097 

20 REM bma Id hi, (57356) 

30 REM Id de, 22528 

40 REM add hl,de 

50 REM Id a, (hi) 

60 REM CD 40 

70 REM jr ni.bnh 

80 REM Id a, 2 

90 REM Id (57336) ,a 
100 REM bnh Id hi, (57356) 
110 REM Id a, 42 
120 REM Id be, 57128 
130 REM call 58217 
140 REM mc hi 
150 HEM call 58217 
160 REM Id a.O 
170 HEM Id (57358) ,a 
180 REM ret 

190 REM bri Id hi, (57356} 
200 REM Id be. 15616 
210 REM Id a, 45 
220 REM call 58217 
230 REM Id hi, 223 
240 REM Id (57356) .hi 
250 REM ret 

Na ultima parte de Avalanche, voce 
teve que analisar a cor do caractere que 



estava logo abaixo da pedra, para verifi- 
car se ela tinha chegado a dgua ou se es- 
tava rolando. Agora, serd precise checar 
a cor da posi(;ao onde a pedra sera im- 
pressa, para saber se ela conseguira 
atingir Willie. 

A posicao de impressSo da pedra e 
trans ferida dos endere^os 57356 e 57357 
para o par HL. Nao se esque^a de que 
a variavel de posiijao da pedra, que esta 
nesses endere^os, fot decrementada no 
fim da primeira parte desta rotina, As- 
sim, quando a rotina e novamenle cha- 
mada, a varidvel esta aponiando para a 
posivao k esquerda da pedra. Saltando 
para essa seipao da rotina, o programa 
imprime a segunda Tigura da pedra no 
local indicado — uma posiipao k esquer- 
da da anterior — , para dar a imprcssao 
de que esta em movimento. 

O par DE e carregado com 22528, va- 
lor adicionado em seguida ao conteudo 
de HL. O resultado, que aponta para a 
cor da posigao onde a pedra sera impres- 
sa, permanece no par HL. 

Utilizamos o apontador em HL para 
obter a cor da posiiirao e carregd-la no 
acumulador por meio de endere^amen- 
to direto. Essa cor e comparada com 40, 
que corresponde ao codigo de azul so- 
bre fundo azul ciano, a cor de Willie 
contra o cell. 

Se a cor nessa posiijao nao e 40, a pe- 
dra nao atingira Willie, e a instrufao jr 
nz.bnh faz o processador pular as pro- 
ximas instrugoes. 



WILLIE E ATINGIDO 



Se Willie for mortalmente atingido 
pela pedra, a variavel no endereco 57336 
deve ser igualada a 2. Para isso, colo- 
camos 2 no acumulador e carregamos 
seu conteudo em 57336. 



A PEDRA ESTA flOLANDO 



Inevitavelmente, a pedra ira rolar 
uma posicao a esquerda. Se Willie nao 
estiver pelo caminho, nem se preocupe. 
Caso contrdrio, voce pode ter a certeza 
de que ele Foi esmagado. 

O par HL e carregado com a nova 
posifao da pedra na tela. O acumulador 



Willie precisard ter muito cuidado 
agora. As pedras estao prontas 
para rolar morro abaixo. E, nesta 
segunda parte da rotina, descerio 
numa avalanche sobre eJe. 




A e carregado com 42 — vermelho so- 
bre fundo ciano — e o par BC, com 
57128, que corresponde ao endere^o ini- 
ciaJ dos dados para a segunda figura da 
pedra, que ocupa duas posifoes na te- 
la, A rotina prinl e chamada e imprime 
a primeira metade da pedra (a por<;ao 
esquerda). O par HL e incremcntado — 
que faz o apontador se mover uma po- 
sicao para a direita. A rotina print e no- 
vamente chamada, imprimindo a segun- 
da metade da pedra. 

Como voce verd, a segunda pedra se 
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IMPRESSAO 



PERSONAGEM 



DA SEGUNDA PEDRA 



FIM DA ENCOSTA 



EFEITO DE ANIMAC AO 



MERGULHO NO MAR 



WILLIE FOI ATINGIDO? 



MORTE DO INFELIZ 



^EVOLTA AO TOPO 
A AVALANCHE RECOMECA 



3i**^ 




desloca meio caractere de cada vez, pois 
ocupa duas posifoes na tela, Essaestru- 
Eura de duas metades faz com que o mo- 
vimento seja muito mais suave e contf- 
nuo, acentuando a impressao de que a 
pedra esta rolando. 

Note que, movendo a pedra um ca- 
ractere para a esquerda (como fizemos 
na primeira parte da rotina) e, depois, 
meio caractere, mantemos um avanijo 
tao suave na posi<;ao em 57356 e 57357 
que nao ha necessidade de verificar se 
a pedra ainda esta no chao. 



Agora, basta que igualcmos a varia- 
vel do tipo de pedra a 0. para que. quan- 
do a rotina for chamada de novo, o pro- 
cessador execute a outra parte. Para is- 
so, colocamos no acumulador e car- 
regamos o conteiido de A em 57358. 



RECOMECA A AVALANCHE 



A rotina bri e chamada peta primei- 
ra parte da rotina de movimentaijao 
sempre que a pedra chega ao fim da en- 



costa ou alunda nas aguas do mar. A 
fun^iao de bri consiste em apagar a pe- 
dra da sua posigao atual e reajusta-la pa- 
ra o topo da encosta, 

A opera<;ao de apagar a pedra e feita 
como de costume. Sua posi?ao e trans- 
ferida de 57356 e 57357 para HL; o par 
BC e carregado com o enderefo inicial 
dos dados (que estao na ROM) para um 
espafo vazio e o acumulador A, com o 
valor 45, que corresponde ao c6digo de 
ciano sobre fundo ciano. Chamaaa em 
seguida, a rotina print imprime um ca- 
ractere cor do ceu sobre a pedra, fazen- 
do-a desaparecer da tela, 

O par HL e carregado com 223, po- 
sicao da pedra na tela quando ela se en- 
contra no topo da montanha. Esse va- 
lor e colocado de volta nos enderegos 
57356 e 57357, para que a rotina de mo- 
vimentacao da pedra comece nessa po- 
si{;ao, quando for novamente chamada. 



A rotina aqui apresentada tern duas 
segoes principals. Ambas sao chamadas 
pela parte do programa publicada no ar- 
tigo anterior da &ene Avalanche. A pri- 
meira delas, que comefa no rotulo BOK, 
seleciona e imprime na tela um dos dois 
padroes de pedra. Em seguida, troca o 
valor da variavel que controla esses pa- 
droes, para que a outra figura seja im- 
pressa na proxima vez. 

A segunda segao, que comefa no ro- 
tulo BRI, apaga a pedra se ela tiver che- 
gado ao fim da encosta ou a dgua, re- 
colocando-a no topo do morro. 

Assim que tiver digitado e montado 
as linhas que se seguem, a rotina de mo- 
vimentacao da pedra estara pronta pa- 
ra funcionar. Mas lembre-se de que vo- 
ce deve ter o resto do jogo na membria, 
jd que outras rotinas, como CHARPR, 
por excmplo, serao chamadas. 



10 


ORG 


19853 


20 


BOK 


LDA 18260 


30 


BEQ 


BMN 


40 


LDX 


1B253 


50 


LDU 


#18038 


60 


JSR 


CHARPR 


70 


CLR 


18260 


80 


RTS 




90 


BMN 


LDX 16253 
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100 


LDU 118014 


110 


JSR CHAR PR 


120 


LDA fl 


130 


STA i8260 


140 


RTS 


150 


BftI LDX 18253 


160 


LDU 115 36 


170 


JSR CHARPR 


leo 


LDX #3070 


190 


STX 1B253 


200 


BTS 


210 


CHARPR EQU 19402 



^ 



. / 



Existem, na memoria, dois padroes 
diferentes da pedm, que sao impressos 
na tela alternadamente, dando a impres- 
sao de que a figura esta rolando. 

Para a cria^ao desse efcito, o proces- 
sador precisa saber qual das duas figu- 
ras foi impressa na ultima vez. Obtem 
ta) informagao consukando uma baliza 
no endere^o 18260. O conteiido dessa 
posi?ao e carregado no acumulador, Se 
for 0, a instru^ao BEQ BMI salta para 
a rotina que imprime uma das figuras 
da pedra. Se nao for, o programa con- 
tinua e imprime a outra. 



A PEDRA ROLA 



Caso o programa continue, X d car- 
regado com conteiido da posi?ao de 
memoria 18253. Esse endere^o armaze- 
na a posi^ao onde a pedra ira ser impres- 
sa. O registrador U e carregado com o 
niimero 18038, ender&fo inicial de uma 
das figuras da pedra. 

O proce.ssador salta para a rotina 
CHARPR, queimprimeosuitimosoito 
bytes da pilha do usuario na posifao de 
tela que esta sendo apontada pelo con- 
teiido do registrador X, 

A instrugao CLR 18260 altera a ba- 
liza no endereto 1 8260. O processador 
a executa quando a baliza tern valor 1. 
CLR 18260 apaga esse valor, colocan- 
do em seu liigar. Assim, na pr6xima 
vez que a rotina da pedra for chamada, 
o processador se cncarregard de execu- 
tar a outra parte e imprimir a segunda 




^■^-it> 




^y^ 
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figura da pedra. Depois, a baliza i ze- 
rada e o prowssador retoma. 

A parte seguinte dessa rotina simples- 
mente imprime a outra figura da pedra. 
O registro t carregado com o mes- 
mo valor, mas o apontador da pilha do 
usuario, U, e carregado com o endere- 
(jo inicial na mem6ria da outra figura da 
pedra, 18104. Em seguida, a rotina 
CHARPR e chamada e realiza a impres- 
sao na tela. O processador executou es- 



sa parte da rotina porque a baliza em 

18260 tinha o valor 0. Conseqiientemen- 
te, 1 t carregado no acumulador e ar- 
mazenado em 18260. A troca da baliza 
faz com que, na prtixima vez, a outra 
figura da pedra seja impressa. 

A rotina BRI e chamada quando a 
pedra chegou ao fim da encosta ou atin- 
giu a agua. Sua funcao consiste em apa- 
gar a pedra e inicializar sua posifao pa- 
ra o lopo da montanha. A instru^ao 
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LDX 18253 carrega no registrador X a 
posi^ao aiual da pedra na tela; U e car- 
regado com o endere^o inicial de urn ca- 
ractere de ceu na memoria. A rotina 
CHARPR imprime, entao, um bloco de 
ceu sobre a pedra, apagando-a. 

O registrador X e carregado com 
3070, posifao inicial da pedra na tela 
quando ela se encontra no topo da mon- 
tanha. Esse valor e armazenado em 
18253, a variavel que carrega a posii;ao 



em que a pedra sera impressa na prdxi- 
ma vez. 

Para testar a rotina de movimenta^ao 
da pedra, execute estas linhas em BA- 
SIC com o resto do programa. 

5 POKE 30000,57 

10 EXEC 19426 

20 EXEC 19781 

30 FOH K-1 TO 100: NEXT: GOTO 20 

A linha 5 so sera necessaria se voce 
tiver feito a gravagao da rotina da mii- 
sica separadamente. 



A rotina que apresentamos a seguir 
tem duas se^oes principals. Ambas sao 
chamadas pela parte do programa pu- 
blicada no artigo anterior da serie Ava- 
lanche. A primeira se^ao imprime a se- 
gunda Figura da pedra, que se alternara 
com a primeira, dando a impressao de 
que a pedra esta rolando. Aiem disso, 
verifica tambem se nosso personagem 
foi atingido pela pedra. 

A segunda se?ao apaga a pedra caso 
ela tenha chegado ao final da cncosta ou 
k superficie do mar e inicializa sua po- 
sigao no topo da montanha. 

Depois de digitar e montar as proxi- 
mas linhas, a rotina de movimenia(;ao 
da pedra estara completa c pronta para 
funcionar. Mas lembre-se de que o res- 
to do jogo precisa estar na memoria, 
pois as tabelas de padroes e de cores sao 
necessaria.s nesta rotina. Para obter o 
efeito desejado, e precise, tambem, que 
a montanha esteja na tela. 



10 


orfl 54530 


20 


Id hi, (62407) 


30 


Id de, (-5200) 


40 


add hi ,de 


50 


push hi 


60 


call 74 


70 


cp 1 


80 


jr z . bn 


90 


cp 5 


100 


j r z , bn 


110 


CD 7 



120 


j r z , bn 


130 


cp 11 


140 


jr ni,bu 


150 


bn Id a, 2 


160 


Id (-5201), a 


170 


bu pop hi 


180 


Id a. 17 


190 


push hi 


200 


call 77 


210 


pop hi 


220 


inc hi 


230 


Id a, 19 


240 


call 77 


250 


Id a.O 


260 


Id (-519S) ,a 


270 


ret 


280 


org -10963 


290 


Id hi, (62407) 


300 


Id de, (-5200) 


310 


add hl.de 


320 


Id a, 255 


330 


call 77 


340 


Id hi, 255 


350 


Id (-5200), hi 


360 


ret 


370 


end 



Na primeira parte da rotina de mo- 
vimenta^ao, voce teve que examinar o 
padrao que estava logo abaLxo da pedra, 
para verjficar se ela tinha afundado no 
mar ou se estava rolando. Identificare- 
mos agora o padrao que esta na posi- 
gao onde a pedra ser^ impressa, para sa- 
ber se ela atingira ou nao Willie. 

A posigao de impressao da pedra, 
que esta armazenada em - 5200 e 
- 5199, e colocada no par DE, Lembre- 
se de que a variavel de posi^ao da pe- 
dra, que estava nesses enderetjos, foi de- 
crement ada no fim da primeira parte 
desta rotina. Assim, quando a rotina e 
novamente chamada, a variavel esta 
apontando para a posi^ao a esquerda da 
pedra. Ao executar essa parte da roti- 
na, o processador imprime a segunda fi- 
gura da pedra, dando a impressao de 
que ela esta rolando. 

O par HL e carregado com o endere- 
go inicial da T&bela de Nomes da VRAM 
(TN). A posi<;ao que esti em DE e so- 
mada ao endereijo em HL, que passa a 
conter efetivamente o endere^o equiva- 




kt 



I^iii 42 CODIOODH 



m 




LEITURA E ESCRITA 
NA VRAM DO MSX 

A VRAM € tratada pelo MSX como 
se fosse urn perifSrico. Portamo, s§o 
necess^rios alguns artiffcios para colo- 
carmos dados nessa mem6ria auxiliar, 
especialmente em linguagem de mdqui- 
na, quando nao dispomos dos coman- 
dos VPEEK e VPOKE. 

Em nosso jogo, usamos cinco reti- 
nas para escrever e ler na VRAM, Seus 
enderecos sao: 74. 77, 86, 89 e 92. 
Todas empregam os comandos OUT e 
tN para escrever e ler atrav^s da porta 
1 52. As rotinas dos enderegos 80 e 83 
controlam o destino do byte enviado 
por essa porta. 



lente a essa posi<;ao na tela, Em segui- 
da, o valor de HL e guardado na piiha, 
sendo utilizado na impressao da pedra. 
A rotina 74 da ROM e chamada. Ela 
coloca no acuniuiador o valor da posi- 
(jao da VRAM apontada por HL. ou se- 
ja, reaJiza a leitura da VRAM, O acu- 
niuiador passa o conter o codigo do pa- 
drao que esia a esquerda da pedra. Es- 
se c6digo e comparado com 1 , 5, 7 e 11 , 
valores que correspondem aos diferen- 
tes desenhos das pernas de Willie. Caso 
o valor lido nao seja nenhum desses, a 
instru^jao jr fiz,bu faz o processador pu- 
lar as pro.ximas instrugdes. 



WILLIE E ATINGIDO 



Se o pobre Willie tiver sido mortal- 
mente atingido pela pedra, a variave! no 
endere^o - 5201 deve ser ajustada com 
valor 2. Para isso, colocamos 2 no 
acumulador e carregamos o conteiido 
deste em -5201. 



A PEDRA ROLA 



Inevitavelmente a pedra ira rolar uma 
posi?ao a esquerda. Se Willie nao esli- 
ver nessa posigao, nao se preocupe. Ca- 
so contririo, podemos ter a certeza de 
que ek foi esraagado, 

A posigao na Tabela de Nomes da 
VRAM e recuperada da pilha, voltan- 
do para o par de registros HL. O acu- 
mulador A e carregado com o c6digo do 
primeiro padrao da figura da pedra (a 
metadc esquerda sera impressa primei- 
ro). O valor de HL e novamente carre- 
gado na pilha, pois sera usado na im- 
pressSo da outra metade. A rolina 77 da 
ROM e chamada. Ela coioca o valor 
contido no acumulador na posicao na 
VRAM apontada por HL. Ja a utiliza- 
mos varias vezes na serie Avalanche. 

O enderego da VRAM i recuperado 
da pilha para HL. onde e incrementa- 
do. Es.se par de registros passa, entao. 
a apontar para uma pos,ii;ao a direita na 
tela, onde sera impressa a meiade que 
esta faltando. O acumulador e carrega- 
do com 19, o codigo dessa metade, e a 
rotina 77 e chamada outra vez. 

A segunda figura da pedra ocupa 
duas posicoes na tela, movcndo-se meio 
caraciere de cada vez. Essa estrutura de 
duas metades faz com que o movimen- 
to se realize de modo muito mais suave 
e continuo, acentuando a impressao de 
que a pedra estS rolando. 

O deslocamento da posicao da pedra, 
um caractere para a esquerda (como 
ocorreu na primeira parte da rotina) e, 
depois, meio caractere, mantem uma va- 
ria^ao tao suave na positjao em - 5200 
e - 5199, que nao ha necessidade de ve- 
rificar se a pedra esta no chao. 

Agora, faltaapenas um detalhe: ajus- 
tar a variavel do tipo de pedra a 0, para 
que, quando a rotina for novamente 
chamada, o processador execute a ou- 
tra parte. Para isso, colocamos no acu- 
mulador e carregamos seu conteiido no 
enderefo -5195. 




Por que nao u$amos sprites para repfe- 
sentar as pedras no MSX? 

Os sprites poderiam, de fato, apre- 
sentar algumas vantagens sobre os blo- 
cos grificos. Com eles, obtertamos os 
movimentos mais suaves e, tamb6m, 
nao precisariamos apagar a ultima po- 
sicao da figura jd que isso 6 leito auto- 
maticamente. 

Mas nao foi sem razao que optamos 
pelos blocos gr^ftcos. Pfimeiro, s6 i 
permitida uma cor no sprite. AISm dis- 
so, 3 deteci^ao da colisao de um sprite 
com outras estruturas compticaria mui- 
to o programa. Por fim, nao poder iamos 
ter, como requer a jogo, mais do que 
quatro figures simultaneamente na 
mesma linha. 



RECOMECA A AVALANCHE 



A rotina mo e chamada pela primei- 
ra parte da rotina de movimenta?ao 
sempre que a pedra chega ao fim da en- 
costa ou atinge o mar. Ela apaga a pe- 
dra da sua posigao atual e reajusta essa 
posigao para o topo da montanha. 

Para apagar a pedra, o endereijo ini- 
cial da TN da VRAM e colocado no par 
de registros HL. A esse endereco soma- 
se a posJ;;ao atuaJ da pedra, que e,sta em 
DE. O valor 255, que corresponde ao 
codigo do padrao de ceu, e colocado no 
acumulador. A rotina 77 e chamada e 
imprime o padrao de c^u na posicao que 
a pedra ocupava. 

O par HL e carregado com 255, a po- 
sicSo da pedra no topo da encosta. Es- 
se valor volta para -5200 e -5199, 
Quando a rotina de movimentacao for 
chamada, a pedra estara nessa posii^ao. 
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DISCOS 
RIGIDOS 



Embora muito uteis, os disquetes tern 
um inconvenjente: a baixa capacidade 
de armazenamento. Se voce precisa de 
maior espa^o de mem6fia e velocidade 
de scesso, o disco rigido ^ a solu^ao. 



Em artigos anteriores, discutimos as 
caracten'sticas e as vantagens dos discos 
flexiveis (tambem chamados floppies ou 
disquetes) para os usuarios de micro- 
computadores. Esses perifericos sao for- 
midaveis, em termos de capacidade de 
armazenamento, facilidade de uso e ve- 
locidade de acesso, quando com parados 
com outras formas de gravatjao magn^- 
tica de informa(;ao. 

Enlretanto, tambem apresentam des- 
vantagens, A principal e a incapacida- 
de de atender a demandas de armazena- 
mento maiores do que as habituais. 

Os disquetes de face simples (para as 
linhas TRS-80, TRS-Color. Apple e 
TK-2000) tern capacidade em torno dos 
160-180 Kbytes. Pode parecer muito, 
mas e suficienie apenas para cerca de 
noventa paginas detexto, ou alguns pro- 
gramas e axquivos de dados pequenos. 
Os disquetes de dupla face tern capaci- 
dade de armazenamento de cerca de 
320-360 Kbytes — o que tambem nao e 
muito, considerando-se a espantosa ra- 
pidez com que um usuario medio enche 
ate centenas de disquetes. 

Nao seria interessante ter todos os 
programas e arquivos de dados em um 
unico disco? Para isso, existe uma so- 
lugao: o disco rigido. Embora ainda se- 
ja um periferico muito caro (sobretudo 
no Brasil), seu prego tende a se tornar 
acessivel. Nao hd exagero em afirmar 
que, mais cedo ou mais tarde, todos os 
micros pessoais serao vendidos com uma 
unidade embutida de disco rigido, co- 
mo ja ocorre com os micros profissio- 
nais da linha PC-XT. 



QUE E UM DISCO RIGIDO 



O disco rigido (hard disk, em ingles) 
^ feito de metal, e nao de plastico flexi- 
vel, como o disquete. For essa razao, 
apresenta mais estabilidade termica e es- 



QUE E UM DISCO RIGIDO 

CAPACIDADE E VEL OC IDADE 

COMO CONECTAR 



UM DISCO RIGIDO 



APLICACOES 



trutural, o que Ihe permite maiores ve- 
locidades de rota^ao (e acesso) e maior 
densidade de gravafao. Essas caracteris- 
ticas resultam numa grande capacidade 
de armazenamento. 

A desvantagem do disco rigido e que, 
em geral, ele nao pode ser removido e 
trocado facilmente por outro, como o 
disquete, pois e fixo dentro da unidade 
acionadora. Existem unidades de disco 
rigido que sao totalmentc iniercambii- 
veis — inclusive a cabega de gravagao 
e leitura. 

Nos discos n'gidos mais utilizados pa- 
ra micros, a cabega de gravae^ao e leitu- 
ra nunca entra em contato com a super- 
ficie do disco, como acontece com o dis- 
quete. Ela "sobrevoa" a superficie a 
uma distancia muito pequena (a alguns 
milesimos dc milimetro); por isso, o.des- 
gaste da superficie ferromagn^tica e pra- 
ticamente nulo. 

Esse sistema garante maior durabili- 
dade a unidade, mas requer que ela se- 
ja isolada do exterior, por meio de va- 
cuo ou fluxo forgado de ar. A particula 
mais infima de poetra ou fumaga que .se 
introdu/.ir entre a cabega e o disco pode 
danific^-lo. 

Essa tecnologia e conhecida como 
Winchester, denominagao que se costu- 
ma estender aos proprios discos n'gidos. 
Como ela envolve dispositivos mecani- 
cos e eletronicos complexos e delicados, 
OS custos dos discos rigidos tornam-se 
bem mais caros. 



CAPACIDADE E VELOCIDADE 



A capacidade de armazenamento dos 
discos Winchester e espantosa. Os dc 
menor capacidade tern por volta de 5 
Mbytes de espaco (5 milhoes de caracte- 
res), o que equivale a cerca de trinta dis- 
quetes de face simples! 

Sao cada vez mais populares os dis- 
cos rigidos de 10, 15 e 20 Mbytes, em- 
bora as maiores capacidades possam ser 
usadas apenas por micros de 16 e 32 bits. 
Mas ja existem discos de boa capacida- 
de para o Apple e o TRS-80. 

A velocidade do disco rigido e cerca 
de vinte a trinta vezes maior que a dos 
disquetes, dependendo do modelo. Isso 
faz uma enorme diferenca no momento 



de carregar um progranaa extenso na 
memoria do micro. 



COMO CONECTAR UM DISCO RJGIDO 



Desde que existam modelos de disco 
rigido disponiveis para o seu microcou}- 
putador, voce nao tera dificuldades em 
utilizar este periferico. 

Em primeiro lugar, seri necessario 
uma interface controladora — uma cai- 
xinha ou placa, que pode ser conectada 
ao computador (internamente, por 
exemplo, nos micros da linha Apple), 
facultando-lhe o controlee intercambio 
de dados com a unidade dc disco. 

Muitos micros de oiio bits tern pia- 
cas dc controle para disquetes que ja in- 
cluem o controlador de discos rigidos. 
Em alguns casos, porem, e preciso ad- 
quirir uma interface prbpria. 

A unidade de disco rigido e apresen- 
tada normafniente em duas versoes: em 
gabinetes separados do console do com- 
putador, e em "gavetas" que podem 
ser inseridas no local destinado a uroa 
unidade acionadora de disquetes. Em 
alguns computadores (como os PC) 
e possivel insialar a unidade Winches- 
ter em espago reservado no gabinete da 
UCP, sem tomar o lugar de um disquete. 

Nao convem dispor apenas do disco 
rigido: e melhor ter tambem uma ou 
duas unidades de disquetes — so assim 
poderemos obter a copia cautclar (back- 
up) do disco rigido e a iransferencia de 
programas e dados. 

O disco rigido tern de fato a desvan- 
tagem de requerer freqiientemente c6- 
pias de seu conteiido em disquete, pois, 
se ocorrer um defeito, a perda e total. 
Por isso, muitos usuarios adquirem jun- 
to com o Winchester uma unidade de Fi- 
ta de back-up (chamada streamer), que 
possibiUta a execu?ao dessa c6pia de 
uma vez so, e em poucos minutos. 

Resta considerar a fontc de alimen- 
tacao. O disco rigido gasta mais ener- 
gia do que uma unidade de disquetes, 
exigindo, quase sempre, uma fonte de 
alimenta(;ao separada da UCP. Alguns 
fabricantes vendem a unidade de disco 
rigido com fonte propria de alimenta- 
(;aa, o qual e muito conveniente, sobre- 
tudo se a unidade nao e interna. 



^ 
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Quando uma planilha comega a ser 
planejada e esta como uma foiha em 
branco, muitas vezes ainda nao sabemos 
exatamente de que maneira iremos apro- 
veitd-la. Os exemplos dados no artigo 
anterior e as sugestoes que aqui apresen- 
tamos vao ajuda-lo a definir uma pla- 
nilha que seja realmente litil. O progra- 
ma permlte a montagem de diversas pia- 
nilhas, que voce poderi gravar e recar- 
regar a qualquer momento. 

Uma planiiha para registrar e plane- 
jar suas despesas domesticas, onde as 
entradas aparecem sob ti'tulos como alu- 
guel, transporte, saiide, consertos etc. 
constilui uma boa op(;ao. Mas, se voce 
lem que fazer um niimero muito gran- 
de de consertos ou reformas na casa, por 
exemplo, pode ser interessante montar 
uma planilha so para eles. Nesse caso, 
separe os diferentes tipos de reforma — 
estofamento dos m6veis, decorapao, 
troca das lelhas e calhas, colocafao de 
grades nas janelas — , especificando as 
quantias gastas mensalmenle ou trimes- 
tralmente com cada um. O programa se 
encarregara de fornecer os valores totais 
para cada categoria, assim como seu pe- 
so relative no conjunto dos gastos com 
reforrtias. 

Uma outra folha pode incluir as des- 
pesas da familia com itens como ali- 
mentaijao, vestuano, educapao, saiide, 
transporte e lazer. Utilize-a para listar 
esses gastos por semanas, meses ou por 
pessoas da familia, 

Mas Icmbre-se de que pode recorrer 
a planilha para manipular qualquer ti- 
po de informatjao que necessite de uma 
organizagao logica. Uma planilha para 
s6cios de um clube pode conter, por 
exemplo, os nomes, telefones e mensa- 
lidadcs pagas, assim como os compare- 
cimentos a reunioes. 

Qualquer que seja sua escolha, a pla- 
nilha se revelard um excelente instru- 
mento de controle. Se voce consultar o 
artigo da pagina 201 , vera que ela nada 
mais e que uma sofisticada matriz bidi- 
mensional, Permiie um controle maior 
dos dados porque comporta o use de 
formulas, o que torna possivcl a obten- 
9ao imediata dos resultados. 

AplicaQoes financeiras constituem o 
tipo mais freqiienie de uso. Mas as va- 
ria^oes, nessa ^rea, tambem sao ilimi- 



tadas. Planilhas podem conter detalhes 
de pedidos, descri(;6es de itens, evolu- 
gao nos custos, descontos etc. Sao uteis, 
tambem, na elaboranjao de folhas de pa- 
gamento, fornecendo listagens dos no- 
mes dos cmpregados e caJculando boras 
trabalhadas, salarios e adiantamentos. 
Sua coopera<;ao e, ainda, valiosa no 
controle de estoque e contas, em geral; 
no planejamento de orfamentos de' fir- 
mas e em muitos outras tarefas ligadas 
ao setor empresarial. 



DIGITE PROGRAMA 



A parte do programa aqui listadade- 
ve ser adicionada k que apresentamos no 
artigo anterior. As linhas restantes se- 
rao dadas no ultimo artigo da serie, que 
contera instru^oes detalhadas sobre o 
uso do programa. Assim, carregue a lis- 
tagem anterior, digite esta e grave o pro- 
grams para, depois, acrescentar a ter- 
ceira parte. 



C" THEN LET v 
v(4)-vt4) + CvC3 



LET V 

v(l) = 



420 FOB a-fc TO c: FOR b-fr TO 

tr 

430 IF 2S{3.2)-' 

(2)-v(2)+l: LET 

)<>26) 

440 IF zS(3,2>--R" THEN 

t.'))-v(.l} + tv{3)<>26) : LET 

v(I)+l 

450 IF v(l)<25 AND v(2}<31 AND 

v(3)=26 THEN GOTO 470 

460 IF v(l)>24 OR v(2)>30 OH v 

(3)>24 OR v{4)>30 THEN GOTO 
570 
470 IF v(l)<l OB v(2)<]. OH v(3 
XI OH v(4)<] THEN GOTO 570 
480 LET a$=CHR$ {v (1 ) +64) +STRS 
v(2)+c;HR5 (v(3)+64)-HSTRS v(4) + 
oS 

490 LET c = LEN 3$: IF t:>B THEN 
RETURN : RESTORE 1630: FOR Q=l 
TO ]1: LET f=0: HEAD mS: FOR w 
= 1 TO c 

500 IF m$(w)="A 
1650: IF f THEN 
510 IF m$(u)="N 
1670: IF f THEN 
520 IF ffiS(w)-"Z 
1710: IF f THEN 
530 IF iii$(u)-"0 
1690: IF f THEN 



THEN 


GOSIIB 


GOTO 


560 


THEN 


GOSIJB 


GOTO 


560 


THEN 


GOSUB 


GOTO 


560 


THEN 


GOSUB 


GOTO 


560 



Descubra para onde vai o seu dinheiro 
ou planeje o futuro de seus negocios 
utilizando esta pr^tica planilha. 
Adicione mais uma parte ao programa 
iniciado no artigo anterior. 
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USOS FINANCEIROS 



SALARIOS DE PESSOAL 
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DIGITE PROGRAMA 
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640 NEXT w: LET z-q: GOSUB 
IMOr IF NOT f THEN LET B$-" 

" : FOE w-,l TO c: LET sS 
{v]'A$lv): NEXT w: LET dS(b,a, 
9 TO 16}='aS; LET dS(h,a,18)- 
CHR$ z: LET dS (b, a , 17) =" l" : 
NEXT b: NEXT a: RETUEN 
550 GOTO 570 
560 NEXT q 
5 70 RETURN 

580 LET e-c: LET a$-" 
590 PRINT »l:AT Q.K: BRIGHT li 

600 PAUSE 0: LET i=CODE INKEYS 
610 IF l>88 THEN GOTO 600 
620 IF 1=13 THEN GOTO 650 
630 IF 1=12 THEN LET a5(4-e)= 
" ": LET e-e+] r LET x=x-l 
640 LET a$(4-e)-CHRS J: PRINT 
IliAT 0,x;CHR$ 1: LET x-x+1 : 
LET e=e-l: IF e>0 THEN PAUSE 
10: GOTO 590 

650 IF e>l AND (d=l OH d=4 OB 
d-5) THEN GOTO 590 

655 IF e>0 AND <d-2 OB d-3) 

THEN GOTO 590 

660 PAUSE 10: PRINT tljAT 0,0; 

■ : RETURN 
670 LET 1$-"- 
680 FOB i-l TO 3 
690 LET iS-i$+{a$(a) AND a${z) 
<>' •) 
700 NElfT X. 

710 IF LEN 15=3 THEN IF iS(l) 
<"A" OH lSa)>''X" OH iSC2)<"0" 
OB iS<Z>>"9" OR iSC3)<"0" OB i 
S(3)>-9' THEN LET f-1 : RETURN 

720 IF LEN iS=3 THEN IF UAL 

13(2 TO 3}=0 OH UAL i3(2 TO ^) 

>30 THEN LET f-1: RETURN 

7 30 IF LEN uS=Z THEN IF iSCl) 

<-A" OP 15(1)>'X" OR lS(2)<"l" 

OH 1S<2)>"9- THEN LET f^l: 

RETURN 

740 IF d=2 THEN IF iSdJO'A" 

AND lSa)<>"R" THEN LET f = l: 

RETURN 

750 IF d=3 THEN IF iS(l)<>"C" 

AND iS(J)<>"R" THEN LET f=l: 

RETURN 

760 LET zS(d.2 TO }-iS: LET iS 

(d.l)=CHRS (LEN l$+48): LET f- 

0; RETURN 

770 LET £c=(CODE zS[4,2))-64: 

LET tc-(CODE J!S{5,Z))-64: LET 

fr=VAL zS{4,3 TO (1+VAL 23(4,1 



)>): LET tr-VAL zS(5.3 TO (1+ - 
UAL zS<5.1))) 

780 IF z$t3,2)="C" THEN IF fc 
Otc OR fr>tr THEN LET f = l: 
RETURN 

790 IF zS(3.2)="a" THEN IF fr 
>tc OR frOtr THEN LET f = l: 
RETURN 

800 LET f-0: RETURN 
810 FOR y=l TO 30: FOR X=I TO 
24: LET os-0 

820 IF dS(Y,".17)=''l'' THEN 
LET z-OODE d$(Y,x,): GOSUB 880 
: GOSUB lOlOi LET at-1; LET aS 
«STR3 t: LET 03-LEN aS: IF t> 
99999.99 THEN LET fS{y,x,l)= 
"5" 

830 IF r>B>S THEN LET Bt = OB-7 
840 IF oa=0 THEN GOTO 860 
850 LET as-" *: FOB u-a 
t TO ob: LET b5 (u-at+1) -aS (uj : 
NEXT u: GOSUB 1410; LET dSty,x 
. TO 8)-aS 

860 LET i-IN 32766: IF i=Z52 
THEN PRINT ♦!, iAT 0,0: PAPER 2 
; INK 7:"CALCUL0 ABANDONADO" : 
RETURN 

870 NEXT x: NEXT y: RETURN 
880 LET gS=dS(y,x,9 TO 16) 
890 IF Z=l THEN LET v(l)=C 
CODE aS(l))-64: LET v{2)=UAL a 
SC2): LET v( 3) -{CODE 3S(3))-64 
: LET v{4)=UAL aS(4): LET oS=a 
S(5) : RETURN 

900 IF 2-2 THEN LET v(l)=( 
CODE bS(1))-64: LET vt2)=UAL a 
SC2 TO 3): LET v(3)=CC0DE 9$ {4 
)-64): LET vC4)-UAL aStS); LET 
oS=a$(6) : RETURN 



a 



660 AS-DSCI, J) :BS-MIDS{A3,2) 

670 AT-ASC(AS) 

690 IF AT-12e THEN PRINT STRING 

3(7,32) : :GOT0 720 

690 IF AT-129 OR AT-130 THEN PB 

INT USING "* t'';BS;:GOTO 72 



700 FOR U-1 TO LEN{BS):IF MIDS ( 

BS,U,1)C>CHR3(32) THEN PRINT MI 

DS(BS.U.l) i 

710 NEXT U 

720 RETURN 

730 Cl-ASC (2S) -64 : C2-VAL (MIDS (Z 

S,2) ) :U-DCC1,C2} : RETURN 

740 PRINT §448, "TRABALHANDO" 



750 FOR J=l TO RX 

760 FOR I-l TO CX 

770 D(I,J)=0:IF ASC(DStI,J))=12 

9 THEN 0(1, J) -VAUrtlDSCDSd, J) . 

2)) 

760 NEXT I.J 

790 FOR J=l TO RX 

800 FOR 1=1 TO CX 

810 PRINT #448. "TRABALHANDO NA 

CELULA " ;CHRS (1 + 64) ;mDS(STR$(J 

) ,2) 

820 IF ASC(DStI,J})<>131 THEN 1 

130 

830 AS=MIDS(D3(I, J) .2) 

840 05=MIDS<AS, 7,1) 

850 IF OS='S." THEN 1050 

860 IF 0S-"3' THEN 1090 

870 ZS=LEFTS{AS, 3) 

880 GOSUB 7 30 

890 V1-U:25=MIDS{AS,4,3) :GOSUB 

730 :V2-U 

900 DP=UALCHIGHTS(AS.l)) 

910 ON INSTR (1,OPS,0$) GOSUB 1 

00.1010, 1020. 1030, 104 

920 OV=0:IF DP=0 THEN PU$="#I** 

#11" :MP=7:G0T0 950 

930 PU$=STHINGSC7-CDP+1) ,"*')+" 

"+STRING${DP, "I") :MP=7- (DP+1) 
940 IF LEN{PUS)>7 THEN RV$=" < 
0V>" :0V-1 
950 D(I,J)=RU 
960 IF BV<0 THEN MP=MP-1 
970 HL=LEN(MID$tSTHS(INT<RU+.5) 

) .2)) 

980 IF ML>MP THEN RU5-" <0U>'*: 

OV-1 

990 GOTO 1160 

1000 RV=U1+U1 : RETURN 

1010 RU=U1-U2: RETURN 

1020 BU=U1*V2: RETURN 

1030 IF V2=0 THEN HU=0: RETURN E 

LSE RU=U1/U2: RETURN 

1040 HU-V1*U2/100: RETURN 

1050 P1»:ASC(A$)-64:P2=ASC(MID$C 

AS , 4 , 1 ) } -64 : C2-UAL (MIDS ( AS , 2 . 2 ) 

) :RU-0 

1060 FOR Cl-Pl TO P2 

1070 RV=RU+D(C1,C2) :NEXT 

lOeo DP'«UAL(HIGHT5(AS.l)) :GOTO 

920 

1090 P1-UAL(MIDS(AS.2,2)) :P2-VA 

L (MIDS CAS . 5 , 2> ) : C1-A3C (AS) "64 : R 

V-0 

1100 FOR C2=P1 TO P2 

1110 HU-RU+D(C1,C2) :NEXT 

1120 DP-UAL (RIGHTS (AS. 1) ) :GOTO 

920 

1130 IF ASCCDSCI,J)J<>128 THEN 




2S APUCACOES 25 



1150 

1140 RVS=STRING${7,32> ;00T0 116 



1150 RVS-MIDS(DS{I.J) .2) 

1160 IF 1>-CS AND K-CS+3 AND J 

>=RS AND J<'-RS+11 THEN PRINT €{ 

J-RS)*32+35+CI-CS>*7,""; rPF^l E 

LSE PF-0 

1170 IF(ASC(DS(I. J))>=128 AND A 

SC(D${I.J))<-130) OR OV-1 THEN 

1200 

1180 IF PF=1 THEN PRINT USING P 

US:BUi 

1190 GOTO 1210 

1200 IF PF=1 THEN PRINT USING"! 

t";RVS; 
1210 NEXT I.J 
1Z20 RETURN 

1230 CLS^INPUT"DESEJA SALVAR ES 
TA FOLHA CS/N) ";AS 
1240 IF A5<>"S" THEN 1340 
1250 LINE INPUT "NOME DO ARQUIVO 
: ";FS 

1260 OPEN "0" ,#-l.FS 
1270 FOR J-1 TO ax 
1280 FOR I-l TO CX 
1290 IF ASC(DS{I. J) )=128 THEN 1 
320 

1300 ZS=DSCI.J) :MIDS{ZS,l,l)=CH 
R$ (A3C (MIDS (23. 1 , i) ) -95) 
1310 PRINT #-l.STH$(I) ,STRS(J> : 
PRINT 1-1. 2S 
1320 NEXT I, J 
1330 CLOSE ♦-! 

1340 CLS:M0-1:G0SUB 70: RETURN 
1350 CLS:PR1NT''DESEJA CARREGAR 
DMA FOLHA DO GRAWADOR ?":PRI 
NT"(0 CONTEUDO DA MEMORIA SERA 

ADICIONADO AO DA FITA) " : INP 
UT "S / N " iAS 

1360 IF ASO'S" THEN 1480 

1370 PHINT"PHESS10NE <ENTER> PA 

RA CARREGAR O PROXIMO ARQUIVO D 

A FITA OU DIGITE NOME DO ARQ 

UIVO DESEJADO" : PRINT 

1380 LINE INPUT''NOME DO ARQUIVO 

'■ " ; F$ 

1390 OPEN "l',#-l,FS 

1400 IF EOFt-1) THEN 1470 

1410 INPUTt-l.A$.B$:LINE INPUTI 

-l.CS 

1420 MIDS(CS,l.i)=CHHS(ASC<MIDS 

(CS ,1,1)) +95 

1430 Cl'VALCAS) :C2-VAL{BS) :DStC 

1,C2}-CS 

1440 IF C1>CX THEN CX^-Cl 



1450 IF C2>RX THEN HX'C2 

1460 GOTO 1400 

1470 CLOSE ♦-! 

1480 CLS:CC-1 :CR=»1 :CS = 1;RS = 1 :M0 

=1:G0SUB 70: RETURN 



m 



660 A$-D$(I,J) :B$-MIDS(A$,2) 

670 AT-ASC(AS) 

680 IF AT=128 THEN PRINTSTRINGS 

(7.32) ; :GOTO 720 

690 IF AT-129 OR AT-130 THEN PR 

INTUSING"\ \'';BS:;GOTO 720 

700 FOR U=l TO LENCBS):IF MIDS ( 

BS,U,1)<>CHRS{32)THEN PRINTMID$ 

(BS.U.l) ! 

710 NEXTU 

720 RETURN 

730 C1-ASC(Z$)-64:C2=VAL(MID$«Z 

S, 2> ) :V-D(C1 ,C2) :RETURN 

740 LOCATE , 20 : PRINT" TRABALHAN 

DO. . .":SPCC24) 

750 FOR J-1 TO BX 

760 FOR I-l TO CX 

770 D(I,J)-0:IF ASC<DS (I , J> ) -12 

9 THEN Da.J)'VAL(MIDS tD$(l,J) , 

2)) 

780 NEXT I, J 

790 FOR J=l TO RX 

800 FOR I-l TO CX 

810 LOCATE 0,20: PRINT "TRABALHAN 

DO NA CEL ";CHRS(I+64) ;MID$(STR 

3(J) ,2) 

820 IF ASCCD${I,J))0131 THEN 1 

130 

830 AS=MID$(D3CI.J} .2) 

840 0S=MID$tA$,7,l) 

850 IF 0$="L" THEN 1050 

860 IF 0S="5" THEN 1090 

870 2S=LEFT$(AS.3) 

880 GOSUB 730 

890 V1-V:Z$-MIDS{AS.4,3) :GOSUB 

730:V2=V 

900 DP=VALCH10HTSCAS.l)) 

910 ON INSTHtl.0PS,03) G03UB 10 

00, 1010. 1020, 1030, 1040 

920 OV=0:IF DP = THEN PU3 = ''lf»# 

l4t":MP=7:G0TO 950 

930 Pi;S=STRINCr3{7-{DP+l) ,''#")+" 

"■t-STKING3CDP."#") :MP=7-{DP+1) 
940 IF LEN(PU3)>7 THEN BV3=" < 
0V>" :0V=1 
950 D{r.JJ=Ry 
960 IF RV<0 THEN MP=MP-1 
970 ML=LENCMIDS(STR5(INT{RV+.5) 



},2)) 

980 IF ML>MP THEN RUS-~ <0V>" : 

OV-1 

990 GOTO 1160 

1000 BV-V1+U2: RETURN 

1010 RV-V1-V2: RETURN 

10 20 RV-V1*U2: RETURN 

1030 IF U2=0 THEN HV=0:RETUBN E 

LSE RV-W1/V2: RETURN 

1040 BU-yl*V2/100: RETURN 

1050 Pl=ASC(AS)-64:P2*ASCCMID3t 

AS. 2, 2)) :RW=0 

1060 FOR C1=P1 TO P2 

1070 nU-RV+DtCl,C2) rNEXT 

1080 DP=UAL(RIGHT$(AS.l)) tGOTO 

920 

1090 P1=VAL(MID3CA3,2.2)) :P2=VA 

L(MID3(AS.5.2)) :C1=ASC{A3)-64:R 

V=0 

1100 FOR C2=P1 TO P2 

1110 HV=RV+D{C1,C2) :NEXT 

1120 DP=VAL (RIGHTS (AS. 13 ) :GOTO 

920 

1130 IF ASC(DS(I,J>)<>128 THEN 

1150 

1140 BV$-STHtNGS(7.32) :GOTO 116 



1150 RUS=M1DS(DS(I,J) .2) 

1160 IF I>-CS AND I<=CS+4 AND J 

>-RS AND J<=RS+1S THEN LOCATE ( 

I-CS)*7+3. (J-RS) +1:PF=] ELSE PF 

= 

1170 IF {ASC(D$(I.J))>=128 AND 

ASC(DS{I , J> )<=130} OR 0V=1 THEN 

1200 
1180 IF PF=1 THEN PBINTUSINGPUS 

;RV; 

1190 GOTO 1210 

1200 IF PF=1 THEN PHTNTUSING-\ 

\';RVS; 
1210 NEXT I, J 
1220 RETURN 
1230 CLSr INPUT"QUER GRAUAR ESTA 

FOLHA? (S/N) "iAS 
1240 IF ASO'S" THEN 1310 
1250 LINE INPUT 'NOME DO AROUIUO 
: ":FS 

1260 F$-"CAS: '+FS:OPEN F$ FOR 
UTPUT AS 11 
1270 FOR J-1 TO RX 
1280 FOR I=»l TO CX 
1290 IF ASC(DS(I,J))"128 THEN 1 
320 

1300 ZS=DS(I,J> :MID3{ZS.1,1)-CH 
R3 (ASC (MIDS (ZS ,1,1)) -90) 
1310 PBINTIl.STRSd) ;".":STR3(J 
) :PRINT»1,Z$ 



L ^^ 



1320 NEXT I, J 

1330 CLOSE 11 

1340 CLSrMO-1 :GOSUB 70 : RETURN 

1350 CLS:TNPUT"QUER CARREGAR UM 

A FOLHA DO TAPE? (NOTE QU 

E A FOLUA DA MEMORIA SERA COM&I 

NADA COM A NOVA) ";A$ 
1360 IF ASO'S" THEN 1490 
1380 LINEINPUT "NOME DO ABOUIWO 

" i F$ 

1390 FS-"CAS: "+F$:OPEN F$ FOR I 

NPUT AS II 

1400 IF EOF(l) THEN 1470 

1410 INPUT |1,A3.BS:LINEINPUT • 

l.C$ 

14 20 MIDS {C$,1,1 J -CHRSCASCCMIDS 

[C5. 1.1) 1+90) 

1430 C1«UAL(AS) rC2-VALCBS) :DSCC 

1 r CZ) =C$ 

1440 IF Cl>CX THEN CX-Cl 
1450 IF C2>RX THEN HX-C2 

1460 GOTO 1400 

1470 CLOSE tl 

1480 CLS.CC=1:CH=1:CS-1:RS'1:M0 

"IrGOSUBrO: RETURN 



660 
,2) 
670 
680 
PC{ 
690 
EN 



AS - DS<I.J):B$ * MIDS (A$ 

AU = ASC CAS J 

IF AU - 128 THEN PRINT S 
?) i : GOTO 720 

IF AU - 129 OR AU - 130 TH 
PRINT LEFTS CBS.?}: SPC{ 7 
LEW C LEFTS CB$,7))): GOTO 



720 

700 

BS) 

RS 

,1) 

710 



UU = 0: FOR U ■= 1 TO LEN { 

; TF MIDS (BS.U.U < > CH 

C32) THEN PRINT MIDS CBS.U 
; : UU ■= UU + 1 

NEXT I PRINT SPC( 7 - UU) 



720 RETURN 

730 CI - ASC CZS) - 64:C2 » V 

AL ( MIDS CZS,2)):V - D{Cl,C2): 

RETURN 
740 VTAB 21: HTAB 1: PRINT "TR. 
ABALHANDO" 

750 FOR J = 1 TO HX 
760 FOR I = 1 TO CX 
770 DCI,J) - 0: IF ASC [DSCI.J 
)) - 129 THEN D(I,J) - VAL ( M 
IDS (DS{I,J) ,2)} 
780 NEXT ; NEXT 



790 FOR J - I TO BX 

800 FOR I - 1 TO CX- 

BIO UTAB 21: HTAB 1: PRINT "TR 

ABALHANDO MA CEL " ; CHRS CI + 6 

4) iJ 

820 IF ASC CDS (I, J)) < > 131 

THEN 1130 
830 AS = MIDS CDS(I,.l) ,2) 
640 OS = MIDS (AS, 7,1) 
850 IF OS = "L" THEN 1050 
860 IF OS = "S" THEN 1090 
870 ZS = LEFTS (AS. 3) 
8B0 OOSUB 730 
890 VI = V:ZS = MIDS (AS, 4,3): 

GOSUB 7 30 :V2 = V 
900 DP - y^L ( RIGHTS (A$.U) 
905 IN = ] 

910 IF OS < > MIDS COPS, IN,) 
) THEN IN - IN + 1: GOTO 9)0 
915 ON IN GOSUB 1000,1010,1020 
,1030,1040 
920 OV - 0:MP - 7 

950 Dci.j) - Ry 

960 IF RV < THEN MP = MP - 1 

97 ML = LEN ( STRS ( INT CRU 

+ .5) )) 

9B0 TF ML > MP THEN BVS = " < 

0V>" :0V = 1 

990 GOTO 1160 

1000 HV - VI -I- V2; J^ETURN 

1010 HW - VI - V2: RETURN 

1020 RV = VI * V2: RETURN 

1030 IF V2 =■ n THEN RV = : RE 

TURN 

1035 RV = VI / V2: RETURN 

1040 RV = VI * V2 / 100 : RETURN 

1050 PI = ASC CAS) - 64:P2 = 
ASC ( MIDS (AS.4.U) - 64:C2 = 

VAL { MIDS CAS, 2. 2) ) :HV = 
1060 FOR CI = PI TO P2 
1070 BV = HV + DCCJ,C2): NEXT 
1080 DP - VAL C RIGHTS CAS.U) 
: GOTO 920 

1090 PI - yAL ( MIDS CAS, 2, 2)) 
:P2 = UAL ( MIDS CAS.5.2)):C1 
= ASC (AS) - 64:RV = 
1100 FOR C2 = PI TO P2 
llin RV - RV + DCC1,C2}; NEXT 
1120 DP = VAL C RIGHTS CAS.D) 
: GOTO 920 

1130 IF ASC CDSCl .J)) < > 12 
8 THEN 1150 
1140 RVS = *" 

1150 RVS = MtDS IDS CI. J). 2) 
1160 IF I > = CS AND 1 < = C 



S + 4 AND J > = RS AND J < = 
RS + 11 THEN VTAB J - RS + 2: 
HTAB CI - CS) « 7 + 4:PF = 1 : G 
OTO 1170 
1165 PF - 

1170 TF ( ASC CDSCl. J! ) ^ ° I 
28 AND A3C (DS(I.J)> < = 130) 
OH OV = I THEN 1200 
I 180 IF PF - i THEN PUTMT SP 
CC 7 - LEN C LEFTS ( STBS (RV) 
,7) )) : LEFTS C STHS CRV) . 7) ; 
1190 GOTO 1210 
1200 IF PF = 1 THEN PRTNT HV5 

1210 NEXT : NEXT 

1220 RETURN 

1230 HOME : INPUT "QUER GHAVAR 

ESTA FOLHA? (S/N) " ; AS 

1240 If AS < > "S" THEN 1340 

1?50 INPUT "NOME DO ARQUIVO " i 

FS 

126U PRINT DSi"OPEN ";FS: PRTN 

T DS; "WRITE ";FS 

1270 FOR J = 1 TO HX 

1280 FOR I - 1 TO CX 

1290 IF ASt: (DSC !..))) = 128 T 

HEN 1320 

1300 ZS = DSCI.J) :2S = CHRS ( 

ASC CZS) - 90) + MIDS tZS,2) 

1310 PRINT STRS (J); CHRS (13 

) J STHS CJ) ; CHBS (13) ;ZS 

1320 NEXT ; NEXT 

1330 PRINT DSi "CLOSE" 

1340 HOME :M0 - 1: GOSUB 70: B 

ETURN 

1350 HOME : INPUT 'QUER CAHREG 

AH UMA FOLHA DO DISCO? (N 

OTE QUE A FOLHA DA MEMORIA SERA 

COMBl NADA COM A NOVA) (S/N 
) " ; AS 

1360 IF AS < > "S" THEN 1480 
13B0 INPUT "NOME DO ARQUIVO "; 
FS 

1390 PRINT DSi'OPEM " ; FS 
1400 PRINT DS;"READ ';FS 
1410 INPUT AS,BS.CS 
1420 CS = CHRS ( ASC (CS) + 90 
) + MTDS {CS,2) 

1430 CI - VAL (AS):C2 = VAL [ 
BS) :DSCC1.C2) = CS 
1440 IF CI > CX THEN CX = CI 
1450 IF C2 > RX THEN RX - C2 
1460 GOTO 1410 
14 70 PRINT OS: "CLOSE" 
1480 HOME :CC = 1 : CR = 1 : CS - 
1:RS = 1;M0 - 1: GOSUB 70: GOTO 

320 
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©JOG© 
DA SINHA 



AS REGRAS DO JOGO 



DEFINIC AO DAS CORES 
COMPUTADQR dA AS PICAS 

ESCOLHA A MEL HOR 

ESTRATEGIA 



AceHe o desafio lan^ado por seu 
mkrocomputador nesle cidssico jogo 
da I6gica. Swi que voc^ i capaz 
de descobrir as cores sorteadas 
pela m^quina, na ordem correta? 



O objetivo de Senha € descobrir as 
quatro cores sorteadas pelo computa- 



dor, entre as sds possfveis, aldm da or- 
dem correta em que elas sstko dispos- 
tas. Lembre-se de que pode ocorrer re- 
peticSo de cores. 

A cada tentativa, vocS deveri digitar 
as Jniciais das cores — por exemplo, 
RLCC para roxo, laranja, cinza e cin- 
za. O computador, entao, responderd 
com um ^ddigo, para ajudi-lo a decifrar 
o segredo. Para cada cor correta em po- 
sifao errada ele imprimird um caracte- 




re branco (ou a letra B), e quando a or- 
dem estiver correta, o caractere ter^ a 
cor preta (ou a letra P). £ 16gico que a 
ordem dos cddigos nao corresponde k 
das cores; isto tornaria o jogo muito f&- 
cil. Voc§ tem doze chances para decifrar 
a senha. 

As cores usadas por cada programa 
sao as seguintes: Amareto, aZul, azuj- 
Claro, Vermelho, Magenta e Branco pa- 
ra micro Spectrum; Amarelo, aZuI, 
Vermelho, azul-Claro, Magenta e La- 
ranja para o TRS-Color; Amarelo, Ver- 
melho, Roxo, Laranja, Magenta e Cin- 
za para o TK-2000, o Apple e o MSX. 



10 BOBDER 0: INK : PAPER 4r 
CLS : LET N$-''671254- ; DIM CC 
4): DIM G(4)r DIM FC4.2): LET 
C3-"AZVCM' 

14 PRINT AT 16,0i"COfiES :""• 
A-AHARELO Z-AZUL, C-AZUL CLARO 

V-VEBMELHO M-MAGENTA B«B 
ilANCO* 

15 rOR N-USB "A" TO USH "A-+7 
; READ A: POKE N.A: NEXT N 

17 DATA 0,24,60.126,126.60,24 

,0 

20 FOR K-=l TO 4; LET CtK)-VAL 

NSdNT (RND*5)+l): NEXT Ki 
LET G"l 

30 INPUT "FACA A OPCAO ";B5 
35 IF LEN B$<>4 THEN GOTO 30 
90 PRINT AT G,0; 'OPCAO No. ': 
G;AT G,14;: FOR K=l TO 4: LET 
G(K)= (7* (BS<K] -"B") )+{6* CBS(K 
) -"A- ) ) + (B$ (K) -"Z- ) + (2* (BS (K) 
-"V" ) ) + (5* (B$ (K) -"C" ) }+ {3* (BS 
{K3-"M"}) 

92 IF G(K)-0 THEN LET K-4 : 
NEXT K: GOTO .10 
95 PRINT INK GCK)i BRIGHT 1; 
CHRS 144 :t IF K04 THEN 
PRINT BRIGHT 1;" "; 
97 NEXT K 

100 PRINT AT G,24 i 

no LET N=0: LET RS=" ": FOR K 

-1 TO 4: LET F(K,l}-0: LET FtK 

,2>-0; TF GCK)-C{K) THEN LET 

RS-H$+" "+CHRS 16+CHRS 04CHH$ 

144: LET F(K,1)-1: LET F(K,2)- 

1: LET N=H+1 

120 NEXT K 

130 FOB K-1 TO 4: IF F(K.1)-1 

THEN GOTO 170 

140 FOR J-1 TO 4: IF F(J,2)-1 

THEN GOTO 160 

]50 TF C(J)-G(K) THEN LET R$- 



w 



1139 



"i 



R$ + " "-l-CHR? 16+CHRS 7+CHH$ 144 

: LET rCJ.2)=l: LET J-4 

160 NEXT J 

170 NEXT K 

IBO PEINT AT G,23;RS: INK 0: 

JF H=4 THEN PRINT AT Zl.Oj'VO 

CE ACERTOU APOS "iG;" TENTATIV 

AS" ; GOTO 2 30 

190 LgT C-G+1: IF G<13 THEN 

GOTO 30 

200 PRINT "0 CODIGO COHHETO ER 

A -;; FOR K-1 TO 4: PRINT INK 

C(K);CHB5 144;" "j: NEXT K 

220 PRINT 

230 PRINT "JOGA NOVAMENTE ?' 

240 LET AS=INKEYS: IF AS-'" 

THEN GOTO 240 

250 IF AS'-S- THEN RUN : STOP 

Q 

10 DIM C(3) ,G(3) ,F(3a) :CS-'AZV 

CML" 

20 CLS:FOR K-0 TO 3 : C (K) -RND(6} 

; NEXT :G"1; PRINT 66 , "adivinhe o 

codigo" 

30 PRINT §4i6,"TENTATIUA NO.":G 

:"? (EX: V2AC) ": PRINT 6448 :BS- 

40 A$=INKEYS:IF A5 = ''" THEN 40 
50 IF AS-CHRStl3) AND LEN(BS)-4 

THEN 90 
60 IF Aa=CHflS(B) AND LEN(BS)>0 
THEN BS^LEFTS(B$,LEN(B$)-1) 
70 IF LEN(B3)<4 AND INSTR(C$,A$ 
K>0 THEN B3-BS+AS 
80 PRINT 6446, BS: GOTO 40 
90 PRINT e32*G,"TENTATIVA";0; :F 
OR K-0 TO 3:G{K)^INSTHCCS.MIDS( 
B5.K+I.1)) :C-G(K)-(G(K)>3) 
100 PRINT §32*G+11+K*2,CHRS(143 
+C*16) ; :NEXT 

110 N'0:RS-" "rFOB K-0 TO 3; Ft 
K,0)=0:F(K,1)=0:IF G(K)=C(K) TH 
EN RS=RS+" "+CHRS<126) :F(K,0)-1 
:F(K.1>-1:N=N+1 
120 NEXT 

130 FOR K-0 TO 3:IF F{K,0)-1 TH 
EN 170 

140 FOR J=0 TO 3: IF F(J,1)-1 TH 
EN 160 

150 IF C{J)=G(K) THEN RS=RS+' " 
+CHHS(Z0 7) :F(J.1)-1:J=3 
160 NEXT 
170 NEXT 

180 PRINT HS:IF N'4 THEN 200 
190 G-0+l:IF G=13 THEN 210 ELSE 

30 
200 PRINT §416." VOCE ACERTOU A 
POS* ;Gi "TENTATIVAS" :GOTO 230 
210 PRINT #416, "EU GANHEI. O CO 
DIGO CORRETO ERA" 
220 FOR K^O TO 3 : PRINT €44e+K*2 
. ■ " rCURS(143+C(K) *16-16* CC{K>> 
3) ) i :NEXT 
230 PRINT: PRINT" JOGA NOVAMENTE 

? (S/N)" 
240 A$ = INKEYS:IF ASO'S" AND AS 
<>"N" THEN 240 
250 IF AS='N" THEN CLS:END ELSE 

20 



aiE] 



10 DIM C(3) .G{3> .F{3,1) :C5 = " 

AVRLMC" 

20 HOME : FOR K = TO 3;C(K) 

= INT (6 * RND (1) + 1) : NEXT 

K 
25 G = 1: PRINT TAB ( 6} "ADIVIN 
HE A SENHA (CORES : AVRLMC ]! " 
30 VTAB (23) 1 PRINT "TENTATIVA 

NUMERO ":G;" (EX :AVHL) : " : BS = 

40 GET AS 

50 IF AS = CHRS (13) AND LEN 

(BS) = 4 THEN 90 
60 IF AS = CHRS (8) AND LEN 
(BS) > THEN B$ = LEFTS (BS , 
LEN (BS) - 1) 

70 IF LEN (BS) < 4 THEN BS = 
BS + AS 

80 VTAB {G + 2): HTAB (21): PR 
INT BS= GOTO 40 
90 VTAB (G + 2) : PRINT "CHANCE 

NUMERO " ;G: 
92 FOR K - TO 3: FOR I = 1 T 
6 

94 IF MIDS (BS.K + 1,1) = MI 
DS CCS,I.l) THEN GCK) = I: GOTO 

100 
96 NEXT I 
98 G{K) = 
100 C = G(K) - {G(K) > 3): NEXT 

K 
105 N = 0:HS " " 

110 FOR K = TO 3:F(K,0) - 0: 
F(K,1) - 0; IF G(K) = C(K) THEN 

HS = RS + " " + ■'P'':F(K.O) - 1 
:F(K.l) - ]:N = N I- 1 
12 NEXT 

130 FOR K - TO 3: IF F(K,0) 
= 1 THEN 170 

140 FOR J - TO 3: IF F(J,1) 
= 1 THEN 160 

150 IF CCJ) - G(K) THEN RS = R 
5 + - - + "B":F{J.l) = 1:J = 3 
160 NEXT J 
170 NEXT K 

180 HTAB (26): PRINT HS : IF N 
= 4 THEN 200 

190 G = G + 1: IF G = 13 THEN 2 
10 

195 GOTO 3U 

200 VTAB (22) ■ PRINT " VOCE AC 
ERTOU A SENHA EM ";G;" CHANCES" 
: GOTO 230 

210 VTAB (22) : PRINT " EU GANH 
EI , A SENHA ERA " ; 
220 FOR K = TO 3: PRINT MID 
3 (CS.C(K) ,1) ; ■ NEXT 
230 HTAB (1) r VTAB (23) : PRINT 

" QUER JOGAR NOVAMENTF. .' (S/N) 

24 GET AS 

250 IF AS = "S" THEN GOTO ■A^) 

260 END 




fffi 



10 DIM C(3) .0,(1) ,F(3,1) :CS="VAH 

inc." 

20 CLSrKEY OFF : FOR K-0 TO ;):C(K 
)=INT(6*RrJU(-TmEH L) :NEXT:a=l : 



Como chegar mais rspidamente k se- 
qiiencia correta das cores? 

Existe apenas um segredo: obter o 
m^ximo de infortriacoes em cada joga- 
da. Com seis tentativas, por exempio, 
utiliiando somente uma cor em cada, 
vocS descobrircl facilmente as quatro 
cores da senha, mas nada sabera so- 
bre suas posigoes, Assim, conv^m ter 
sempre em vista ambos os objetivos. 
Talvez voc6 perca mais tempo para 
chegar Ss cores corretas, mas a defi- 
niijao de suas posi^oes na sequ&ncia 
I ser^ bem mais r^pida. 

PR [NT TAB (4) "ADIVINHE A SENHA 
(CORES: UARLMC) " 

30 LOCATE 3,22: PR TNT "TENTATIV 
ANo";Gi "? (EX:AVBL) " :()S = "" 
4 AS=TNKEYS:tF A$=" " THKN 4 
50 TF AS-CHRSdS) AND LEN(H$)=4 

THEN 90 
60 IK AS=CHRS(8) AND LEN(BS)>0 
THEN RS = t,F;FTS(BS.LEN(BS)-l} 
7 TF LENtBSX*^ AND TNSTH{C5.A3 
}<>0 THEN BS = RS*-A$ 
80 LOCATE 24,G44: PRINT BS:G0TO 

40 

90 LOCATE 3,G+4 : PRlKT"Tentfltiva 

mlniero ";G;:FOR K = TO 3:G(K)- 
TNSTR(C$,MIDS(B5,K+1,1) ) :C=G(K) 
-(G(K)>3) ;NEXT K 

110 N-OHS'" ":FOB K=0 TO 3:F( 
K,0)-OiF(K,l)-OtIF C(K)=C(K) TH 
EN R$=RS+" "■t-"P":F(K,0)=L:F(K,l 
)=1 :N=N+]. 
120 NEXT 

130 FOB K=0 TO 3: IF F(K,0)=1 TH 
EN I ; 

140 FOR J=0 TO 3:IF F(J.1)=1 TH 
EN 160 

150 IF C(J)'*«(K) THEN HS = BS+" " 
+ "B";F(>), l)=L:J-3 
160 NEXT 
170 NEXT 

160 LOCATE 28, G+4: PRINT BSrTF N 
=4 THEN 200 
190 G = G+1:TF G=-13 THEN 210 ELSE 

30 
200 LOCATE 1 ,21 : PRINT" Voce acer 
tou a senha em "iG;" chanrea" :G 
OTO 230 
210 LOCATE 1,21: PRINT "Eu venci 

a aantia correta era ' ; : 
220 FOB T-0 TO 3:PRINT MIDStCS. 
C(I) ,1) : :NEXT 

230 LOCATE 1 , 22 : PRINT"Ouer joga 
r novaoente? (S/N) 
240 AS-TNKEYS:IF ASO'S" AND AS 
<>"N' THEN 240 
250 IF AS="N" THEN CLS!END:ELSE 

20 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



APLlCApOES 

Complete sua planiiha eletronica. Como entrar as equacoes. 
C6pias absolutas e relativas. Instrucoes especiais. 

c6digo de maquina 

Avalanche: ini'cio da caminhada. Onde Willie esta pisando? 
Imobilidade. Passos fatais. ultimo suspiro. 

PROGRAMACAO BASIC 

Paginas gr^ficas e exigencia de espaco. T6cnicas de 
paginapao. Armazenagem e recuperagao. Animacoes graficas. 



COW''" 



iU0O«* 



CURSO PR^^»^« 



58 



\S(.^ 



j^m 



m^^' 



mr: 



l~' i 




(M^A 



i^rcr. 



v4^- 



'">C7: 



a^i 




-f^A^A 



50,00 



& 
u-—* 



